home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / origami2.arc / WATERFOW.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1980-01-01  |  10.8 KB  |  494 lines
  1. 10  SCREEN 1,0:COLOR 1,15: KEY OFF: CLS
  2. 15  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 20  LOCATE 12,1:PRINT FNCEN$("WATERFOWL",40)
  4. 25  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  5. 30  PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
  6. 35  PRINT FNCEN$("All Rights Reserved",40)
  7. 40  FOR K=1 TO 2500:NEXT K
  8. 45  CLS
  9. 50  FOR A=0 TO 20
  10. 55  OUT 66,A:OUT 66,A
  11. 60  OUT 97,(INP(97) OR 3)
  12. 65  NEXT A
  13. 70  SOUND 37,0
  14. 75  FOR K=1 TO 250:NEXT K
  15. 80  LINE(105,45)-(215,145),3,B
  16. 85  GOSUB 30000   '*** <Textpad> ***
  17. 90  PRINT FNCEN$("Our first fold takes this corner",40)
  18. 95  FOR K=1 TO 750:NEXT K
  19. 100  FOR K=1 TO 15
  20. 105  PSET(223,153):DRAW"R8G3F6G2H6G3U8"
  21. 110  PAINT(228,158)
  22. 115  FOR M=1 TO 25:NEXT M
  23. 120  CIRCLE(228,158),9,0
  24. 125  PAINT(228,158),0
  25. 130  NEXT K
  26. 135  FOR K=1 TO 750:NEXT K
  27. 140  GOSUB 30000   '*** <Textpad> ***
  28. 145  PRINT FNCEN$("up to this corner",40)
  29. 150  FOR K=1 TO 750:NEXT K
  30. 155  FOR K=1 TO 15
  31. 160  PSET(97,37):DRAW"U8G3H6G2F6G3R8"
  32. 165  PAINT(92,32)
  33. 170  FOR M=1 TO 25:NEXT M
  34. 175  CIRCLE(92,32),9,0
  35. 180  PAINT(92,32),0
  36. 185  NEXT K
  37. 190  FOR K=1 TO 750:NEXT K
  38. 195  GOSUB 30000   '*** <Textpad> ***
  39. 200  PRINT FNCEN$("across this line,",40)
  40. 205  FOR K=1 TO 750:NEXT K
  41. 210  LINE(105,145)-(215,45)
  42. 215  FOR K=1 TO 750:NEXT K
  43. 220  GOSUB 30000   '*** <Textpad> ***
  44. 225  PRINT FNCEN$("SO!",40)
  45. 230  FOR K=1 TO 750:NEXT K
  46. 235  FOR Q=0 TO 55
  47. 240  LINE(105,145)-(215-Q,145-0.91*Q)
  48. 245  LINE-(215,45)
  49. 250  LINE(105,145)-(215-Q,145-0.91*Q),0
  50. 255  LINE-(215,45),0
  51. 260  NEXT Q
  52. 265  FOR Q=0 TO 55
  53. 270  LINE(105,145)-(160-Q,95-0.91*Q)
  54. 275  LINE-(215,45)
  55. 280  LINE(105,145)-(160-Q,96-0.91*Q)
  56. 285  LINE-(215,45)
  57. 290  NEXT Q
  58. 295  GOSUB 30000   '*** <Textpad> ***
  59. 300  PRINT FNCEN$("Your turn.  I'll wait for you.",40)
  60. 305  FOR K=1 TO 1500:NEXT K
  61. 310  GOSUB 30000   '*** Textpad ***
  62. 315  PRINT FNCEN$("Press <C> to continue.",40)
  63. 320  A$=INKEY$:IF A$="" GOTO 320
  64. 325  IF A$="C" OR A$="c" GOTO 335
  65. 330  GOTO 310
  66. 335  GOSUB 30000   '*** <Textpad> ***
  67. 340  PRINT FNCEN$("Our second fold takes this corner",40)
  68. 345  FOR K=1 TO 750:NEXT K
  69. 350  FOR K=1 TO 15
  70. 355  PSET(223,37):DRAW"U8F3E6F2G6F3L8"
  71. 360  PAINT(228,32)
  72. 365  FOR M=1 TO 25:NEXT M
  73. 370  CIRCLE(228,32),9,0
  74. 375  PAINT(228,32),0
  75. 380  NEXT K
  76. 385  GOSUB 30000   '*** <Textpad> ***
  77. 390  PRINT FNCEN$("down to this corner",40)
  78. 395  FOR K=1 TO 750:NEXT K
  79. 400  FOR K=1 TO 15
  80. 405  PSET(97,153):DRAW"L8F3G6F2E6F3U8"
  81. 410  PAINT(92,158)
  82. 415  FOR M=1 TO 25:NEXT M
  83. 420  CIRCLE(92,158),9,0
  84. 425  PAINT(92,158),0
  85. 430  NEXT K
  86. 435  GOSUB 30000   '*** <Textpad> ***
  87. 440  PRINT FNCEN$("across this line,",40)
  88. 445  FOR K=1 TO 750:NEXT K
  89. 450  LINE(105,45)-(215,145),0
  90. 455  FOR K=1 TO 750:NEXT K
  91. 460  GOSUB 30000   '*** <Textpad> ***
  92. 465  PRINT FNCEN$("SO!",40)
  93. 470  FOR K=1 TO 750:NEXT K
  94. 475  FOR Q=0 TO 55
  95. 480  LINE(105,45)-(215-Q,45+0.91*Q),0
  96. 485  LINE(105,45)-(216-Q,45+0.91*Q),0
  97. 490  NEXT Q
  98. 495  FOR Q=0 TO 55
  99. 500  LINE(105,45)-(160-Q,95+0.91*Q),0
  100. 505  LINE(105,45)-(160-Q,95+0.91*Q)
  101. 510  NEXT Q
  102. 515  FOR K=1 TO 750:NEXT K
  103. 520  GOSUB 30000   '*** Textpad ***
  104. 525  PRINT FNCEN$("Press <C> to continue.",40)
  105. 530  A$=INKEY$:IF A$="" GOTO 530
  106. 535  IF A$="C" OR A$="c" GOTO 545
  107. 540  GOTO 520
  108. 545  GOSUB 30000   '*** <Textpad> ***
  109. 550  PRINT FNCEN$("Folds 3 and 4 take these two corners",40)
  110. 555  FOR K=1 TO 750:NEXT K
  111. 560  LINE(105,140)-(110,140),0
  112. 565  LINE-(105,135),0
  113. 570  FOR K=1 TO 750:NEXT K
  114. 575  FOR K=1 TO 15
  115. 580  PSET(105,153):DRAW"G5R4D7R2U7R4H5"
  116. 585  PAINT(105,159)
  117. 590  FOR M=1 TO 25:NEXT M
  118. 595  CIRCLE(105,159),7,0
  119. 600  PAINT(105,159),0
  120. 605  NEXT K
  121. 610  FOR K=1 TO 750:NEXT K
  122. 615  LINE(105,140)-(110,140)
  123. 620  LINE-(105,135)
  124. 625  FOR K=1 TO 750:NEXT K
  125. 630  GOSUB 30000   '*** <Textpad> ***
  126. 635  PRINT FNCEN$("up to this corner",40)
  127. 640  FOR K=1 TO 750:NEXT K
  128. 645  FOR K=1 TO 15
  129. 650  PSET(105,37):DRAW"E5L4U7L2D7L4F5"
  130. 655  PAINT(105,31)
  131. 660  FOR M=1 TO 25:NEXT M
  132. 665  CIRCLE(105,31),7,0
  133. 670  PAINT(105,31),0
  134. 675  NEXT K
  135. 680  FOR K=1 TO 750:NEXT K
  136. 685  GOSUB 30000   '*** <Textpad> ***
  137. 690  PRINT FNCEN$("across this center line,",40)
  138. 695  FOR K=1 TO 750:NEXT K
  139. 700  FOR H=105 TO 160 STEP 2
  140. 705  PSET(H,95),0
  141. 710  NEXT H
  142. 715  FOR K=1 TO 750:NEXT K
  143. 720  GOSUB 30000   '*** <Textpad> ***
  144. 725  PRINT FNCEN$("first in front",40)
  145. 730  FOR K=1 TO 750:NEXT K
  146. 735  FOR V=145 TO 95 STEP -1
  147. 740  LINE(160,95)-(105,V),0
  148. 745  LINE(160,95)-(105,V)
  149. 750  NEXT V
  150. 755  FOR V=95 TO 45 STEP -1
  151. 760  LINE(160,95)-(105,V),0
  152. 765  LINE(160,95)-(105,V)
  153. 770  LINE(105,95)-(160,95),0
  154. 775  NEXT V
  155. 780  FOR K=1 TO 750:NEXT K
  156. 785  GOSUB 30000   '*** <Textpad> ***
  157. 790  PRINT FNCEN$("and then in back.",40)
  158. 795  FOR K=1 TO 750:NEXT K
  159. 800  FOR V=146 TO 95 STEP -1
  160. 805  LINE(161,95)-(105,V),0
  161. 810  NEXT V
  162. 815  FOR V=95 TO 45 STEP -1
  163. 820  LINE(160,95)-(105,V),1
  164. 825  LINE(160,95)-(105,V)
  165. 830  NEXT V
  166. 835  FOR K=1 TO 750:NEXT K
  167. 840  GOSUB 30000   '*** Textpad ***
  168. 845  PRINT FNCEN$("Press <C> to continue.",40)
  169. 850  A$=INKEY$:IF A$="" GOTO 850
  170. 855  IF A$="C" OR A$="c" GOTO 865
  171. 860  GOTO 840
  172. 865  GOSUB 30000   '*** <Textpad> ***
  173. 870  PRINT FNCEN$("I need more room to work in.",40)
  174. 875  FOR K=1 TO 1500:NEXT K
  175. 880  GOSUB 30000   '*** Textpad ***
  176. 885  PRINT FNCEN$("One moment, please.",40)
  177. 890  FOR K=1 TO 1500:NEXT K
  178. 895  FOR A=0 TO 20
  179. 900  OUT 66,A:OUT 66,A
  180. 905  OUT 97,(INP(97) OR 3)
  181. 910  NEXT A
  182. 915  SOUND 37,0
  183. 920  CLS
  184. 925  LINE(105,35)-(105,145)
  185. 930  LINE-(230,145)
  186. 935  LINE-(105,35)
  187. 940  PAINT(130,120)
  188. 945  FOR K=1 TO 750:NEXT K
  189. 950  GOSUB 30000   '*** <Textpad> ***
  190. 955  PRINT FNCEN$("Let's have a look at what's up here.",40)
  191. 960  FOR K=1 TO 750:NEXT K
  192. 965  FOR K=1 TO 15
  193. 970  PSET(105,27):DRAW"E5L4U7L2D7L4F5"
  194. 975  PAINT(105,21)
  195. 980  FOR M=1 TO 25:NEXT M
  196. 985  CIRCLE(105,21),7,0
  197. 990  PAINT(105,21),0
  198. 995  NEXT K
  199. 1000  FOR K=1 TO 750:NEXT K
  200. 1005  GOSUB 30000   '*** <Textpad> ***
  201. 1010  PRINT FNCEN$("Flap 1",40)
  202. 1015  FOR K=1 TO 750:NEXT K
  203. 1020  LINE(105,45)-(115,45),0
  204. 1025  LINE-(105,55),0
  205. 1030  FOR K=1 TO 750:NEXT K
  206. 1035  GOSUB 30000   '*** <Textpad> ***
  207. 1040  PRINT FNCEN$("Flap 2",40)
  208. 1045  FOR K=1 TO 750:NEXT K
  209. 1050  LINE(105,40)-(112,40),0
  210. 1055  LINE-(105,45),0
  211. 1060  FOR K=1 TO 750:NEXT K
  212. 1065  GOSUB 30000   '*** <Textpad> ***
  213. 1070  PRINT FNCEN$("Flap 3",40)
  214. 1075  FOR K=1 TO 750:NEXT K
  215. 1080  FOR K=1 TO 15
  216. 1085  LINE(105,40)-(105,35),0
  217. 1090  LINE-(110,40),0
  218. 1095  FOR M=1 TO 25:NEXT M
  219. 1100  LINE(105,40)-(105,35)
  220. 1105  LINE-(110,40)
  221. 1110  PSET(110,39),0
  222. 1115  NEXT K
  223. 1120  PSET(105,40),0
  224. 1125  PSET(110,40),0
  225. 1130  FOR K=1 TO 750:NEXT K
  226. 1135  GOSUB 30000   '*** <Textpad> ***
  227. 1140  PRINT FNCEN$("Flaps 1 and 3 fold down to this corner",40)
  228. 1145  FOR K=1 TO 750:NEXT K
  229. 1150  FOR K=1 TO 15
  230. 1155  PSET(230,153):DRAW"G5R4D7R2U7R4H5"
  231. 1160  PAINT(230,159)
  232. 1165  FOR M=1 TO 25:NEXT M
  233. 1170  CIRCLE(230,159),7,0
  234. 1175  PAINT(230,159),0
  235. 1180  NEXT K
  236. 1185  FOR K=1 TO 750:NEXT K
  237. 1190  GOSUB 30000   '*** <Textpad> ***
  238. 1195  PRINT FNCEN$("across this line,",40)
  239. 1200  FOR K=1 TO 750:NEXT K
  240. 1205  LINE(105,145)-(166,89),0
  241. 1210  GOSUB 30000   '*** <Textpad> ***
  242. 1215  PRINT FNCEN$("first in front",40)
  243. 1220  FOR K=1 TO 750:NEXT K
  244. 1225  LINE(106,45)-(115,45)
  245. 1230  LINE-(105,55)
  246. 1235  FOR Q=0 TO 50
  247. 1240  LINE(105,145)-(115+Q,45+0.9*Q),0
  248. 1245  LINE(105,145)-(115+Q,45+0.9*Q)
  249. 1250  NEXT Q
  250. 1255  FOR Q=0 TO 65
  251. 1260  LINE(105,145)-(166+Q,89+0.85*Q),0
  252. 1265  LINE(105,145)-(166+Q,89+0.85*Q)
  253. 1270  LINE(105,145)-(166,89),0
  254. 1275  NEXT Q
  255. 1280  FOR K=1 TO 750:NEXT K
  256. 1285  GOSUB 30000   '*** <Textpad> ***
  257. 1290  PRINT FNCEN$("and then in back.",40)
  258. 1295  FOR K=1 TO 750:NEXT K
  259. 1300  LINE(105,35)-(115,40),0,BF
  260. 1305  FOR Q=0 TO 50
  261. 1310  LINE(105,145)-(115+Q,45+0.9*Q),1
  262. 1315  LINE(105,145)-(115+Q,45+0.9*Q)
  263. 1320  NEXT Q
  264. 1325  FOR Q=0 TO 65
  265. 1330  LINE(105,145)-(166+Q,89+0.85*Q),1
  266. 1335  LINE(105,145)-(166+Q,89+0.85*Q)
  267. 1340  LINE(105,145)-(166,89),0
  268. 1345  NEXT Q
  269. 1350  FOR K=1 TO 750:NEXT K
  270. 1355  LINE(105,45)-(111,40)
  271. 1360  LINE(105,45)-(105,35)
  272. 1365  LINE-(115,45)
  273. 1370  PAINT(107,38)
  274. 1375  PSET(107,44)
  275. 1380  FOR K=1 TO 750:NEXT K
  276. 1385  GOSUB 30000   '*** Textpad ***
  277. 1390  PRINT FNCEN$("Press <C> to continue.",40)
  278. 1395  A$=INKEY$:IF A$="" GOTO 1395
  279. 1400  IF A$="C" OR A$="c" GOTO 1410
  280. 1405  GOTO 1385
  281. 1410  GOSUB 30000   '*** <Textpad> ***
  282. 1415  PRINT FNCEN$("We next fold and backfold this corner",40)
  283. 1420  FOR K=1 TO 750:NEXT K
  284. 1425  FOR K=1 TO 15
  285. 1430  PSET(105,27):DRAW"E5L4U7L2D7L4F5"
  286. 1435  PAINT(105,21)
  287. 1440  FOR M=1 TO 25:NEXT M
  288. 1445  CIRCLE(105,21),7,0
  289. 1450  PAINT(105,21),0
  290. 1455  NEXT K
  291. 1460  FOR K=1 TO 750:NEXT K
  292. 1465  GOSUB 30000   '*** <Textpad> ***
  293. 1470  PRINT FNCEN$("across this line of our choosing,",40)
  294. 1475  FOR K=1 TO 1500:NEXT K
  295. 1480  LINE(105,70)-(166,89),0
  296. 1485  FOR K=1 TO 750:NEXT K
  297. 1490  GOSUB 30000   '*** <Textpad> ***
  298. 1495  PRINT FNCEN$("SO!",40)
  299. 1500  FOR K=1 TO 750:NEXT K
  300. 1505  FOR V=35 TO 70
  301. 1510  LINE(166,89)-(105,V),0
  302. 1515  LINE(118,46)-(161,84),0
  303. 1520  FOR M=1 TO 10:NEXT M
  304. 1525  NEXT V
  305. 1530  FOR Q=O TO 30
  306. 1535  LINE(166,89)-(105-0.67*Q,70+Q),0
  307. 1540  LINE(166,89)-(105-0.67*Q,70+Q)
  308. 1545  LINE(166,89)-(106-0.67*Q,70+Q)
  309. 1550  FOR M=1 TO 10:NEXT M
  310. 1555  NEXT Q
  311. 1560  LINE(85,100)-(166,89),0
  312. 1565  PSET(89,100),0:PSET(104,98),0
  313. 1570  FOR K=1 TO 750:NEXT K
  314. 1575  GOSUB 30000   '*** Textpad ***
  315. 1580  PRINT FNCEN$("Press <C> to continue.",40)
  316. 1585  A$=INKEY$:IF A$="" GOTO 1585
  317. 1590  IF A$="C" OR A$="c" GOTO 1600
  318. 1595  GOTO 1575
  319. 1600  GOSUB 30000   '*** <Textpad> ***
  320. 1605  PRINT FNCEN$("and return.",40)
  321. 1610  FOR K=1 TO 750:NEXT K
  322. 1615  FOR Q=0 TO 30
  323. 1620  LINE(166,89)-(85+0.67*Q,100-Q),0
  324. 1625  LINE(166,89)-(84+0.67*Q,100-Q),0
  325. 1630  LINE(166,89)-(105,100-Q)
  326. 1635  LINE(166,89)-(105,101-Q)
  327. 1640  PSET(113,80):PSET(115,82):PSET(124,84):PSET(141,85):PSET(149,87)
  328. 1645  NEXT Q
  329. 1650  FOR V=70 TO 35 STEP -1
  330. 1655  LINE(166,89)-(105,V)
  331. 1660  LINE(105,70)-(166,89),0
  332. 1665  NEXT V
  333. 1670  FOR K=1 TO 750:NEXT K
  334. 1675  GOSUB 30000   '*** <Textpad> ***
  335. 1680  PRINT FNCEN$("Your turn to fold and backfold.",40)
  336. 1685  FOR K=1 TO 1500:NEXT K
  337. 1690  GOSUB 30000
  338. 1695  PRINT FNCEN$("To review that fold, press <R>.",40)
  339. 1700  FOR K=1 TO 1000:NEXT K
  340. 1705  PRINT FNCEN$("To continue, press <C>.",40)
  341. 1710  A$=INKEY$:IF A$="" GOTO 1710
  342. 1715  IF A$="r" OR A$="R" GOTO 1730
  343. 1720  IF A$="c" OR A$="C" GOTO 1780
  344. 1725  GOTO 1695
  345. 1730  FOR A=0 TO 20
  346. 1735  OUT 66,A:OUT 66,A
  347. 1740  OUT 97,(INP(97) OR 3)
  348. 1745  NEXT A
  349. 1750  SOUND 37,0
  350. 1755  LINE(105,70)-(166,89)
  351. 1760  GOSUB 30000
  352. 1765  PRINT FNCEN$("* Review *",40)
  353. 1770  FOR K=1 TO 1500:NEXT K
  354. 1775  GOTO 1410
  355. 1780  GOSUB 30000   '*** <Textpad> ***
  356. 1785  PRINT FNCEN$("Our final fold is a REVERSE FOLD",40)
  357. 1790  FOR K=1 TO 1500:NEXT K
  358. 1795  GOSUB 30000   '*** <Textpad> ***
  359. 1800  PRINT FNCEN$("that pulls this portion of our figure",40)
  360. 1805  FOR K=1 TO 1500:NEXT K
  361. 1810  FOR K=1 TO 15
  362. 1815  LINE(166,89)-(105,35),0
  363. 1820  LINE-(105,70),0
  364. 1825  LINE(118,46)-(161,84),0:PSET(160,83),0
  365. 1830  FOR M=1 TO 25:NEXT M
  366. 1835  LINE(166,89)-(105,35)
  367. 1840  LINE-(105,70)
  368. 1845  NEXT K
  369. 1850  FOR K=1 TO 750:NEXT K
  370. 1855  GOSUB 30000   '*** <Textpad> ***
  371. 1860  PRINT FNCEN$("down into this pocket,",40)
  372. 1865  FOR K=1 TO 750:NEXT K
  373. 1870  FOR A=0 TO 20
  374. 1875  OUT 66,A:OUT 66,A
  375. 1880  OUT 97,(INP(97) OR 3)
  376. 1885  NEXT A
  377. 1890  SOUND 37,0
  378. 1895  LINE(105,35)-(95,140)
  379. 1900  LINE-(105,140)
  380. 1905  PAINT(100,130)
  381. 1910  LINE(104,35)-(104,145),0
  382. 1915  FOR K=1 TO 15
  383. 1920  PSET(92,85):DRAW"H5D4L7D2R7D4E5"
  384. 1925  PAINT(86,85)
  385. 1930  FOR M=1 TO 25:NEXT M
  386. 1935  CIRCLE(86,85),7,0
  387. 1940  PAINT(86,85),0
  388. 1945  NEXT K
  389. 1950  FOR K=1 TO 750:NEXT K
  390. 1955  GOSUB 30000   '*** <Textpad> ***
  391. 1960  PRINT FNCEN$("SO!",40)
  392. 1965  FOR K=1 TO 750:NEXT K
  393. 1970  FOR A=0 TO 20
  394. 1975  OUT 66,A:OUT 66,A
  395. 1980  OUT 97,(INP(97) OR 3)
  396. 1985  NEXT A
  397. 1990  SOUND 37,0
  398. 1995  LINE(118,46)-(161,84),0:PSET(160,83),0
  399. 2000  LINE(105,35)-(95,140),0
  400. 2005  LINE-(105,140),0
  401. 2010  PAINT(100,130),0
  402. 2015  LINE(105,35)-(105,145)
  403. 2020  LINE(105,70)-(105,35),0
  404. 2025  LINE-(166,89),0
  405. 2030  PAINT(120,60),0
  406. 2035  LINE(105,70)-(85,100)
  407. 2040  LINE-(166,89)
  408. 2045  PAINT(100,90)
  409. 2050  LINE(105,145)-(105,70),0
  410. 2055  LINE-(166,89)
  411. 2060  FOR K=1 TO 750:NEXT K
  412. 2065  GOSUB 30000
  413. 2070  PRINT FNCEN$("To review that fold, press <R>.",40)
  414. 2075  FOR K=1 TO 1000:NEXT K
  415. 2080  PRINT FNCEN$("Press <C> to continue.",40)
  416. 2085  A$=INKEY$:IF A$="" GOTO 2085
  417. 2090  IF A$="r" OR A$="R" GOTO 2105
  418. 2095  IF A$="c" OR A$="C" GOTO 2180
  419. 2100  GOTO 2065
  420. 2105  FOR A=0 TO 20
  421. 2110  OUT 66,A:OUT 66,A
  422. 2115  OUT 97,(INP(97) OR 3)
  423. 2120  NEXT A
  424. 2125  SOUND 37,0
  425. 2130  LINE(85,70)-(105,100),0,BF
  426. 2135  LINE(105,145)-(105,35)
  427. 2140  LINE-(230,145)
  428. 2145  LINE(105,70)-(166,89)
  429. 2150  PAINT(120,60)
  430. 2155  LINE(105,70)-(166,89),0
  431. 2160  GOSUB 30000
  432. 2165  PRINT FNCEN$("* Review *",40)
  433. 2170  FOR K=1 TO 1500:NEXT K
  434. 2175  GOTO 1780
  435. 2180  GOSUB 30000   '*** <Textpad> ***
  436. 2185  PRINT FNCEN$("There!  We're done.  Let's open up.",40)
  437. 2190  FOR K=1 TO 1500:NEXT K
  438. 2195  GOSUB 30000   '*** Textpad ***
  439. 2200  PRINT FNCEN$("One moment, please.",40)
  440. 2205  FOR K=1 TO 1500:NEXT K
  441. 2210  FOR A=0 TO 20
  442. 2215  OUT 66,A:OUT 66,A
  443. 2220  OUT 97,(INP(97) OR 3)
  444. 2225  NEXT A
  445. 2230  SOUND 37,0
  446. 2235  CLS
  447. 2240  LINE(85,100)-(100,65)
  448. 2245  LINE-(165,90)
  449. 2250  LINE-(170,95)
  450. 2255  LINE-(180,85)
  451. 2260  LINE-(235,135)
  452. 2265  LINE-(220,135)
  453. 2270  LINE-(230,145)
  454. 2275  LINE-(205,145)
  455. 2280  LINE-(215,155)
  456. 2285  LINE-(115,145)
  457. 2290  LINE-(115,140)
  458. 2295  LINE-(105,140)
  459. 2300  LINE-(102,98)
  460. 2305  LINE-(85,100)
  461. 2310  PAINT(160,100)
  462. 2315  LINE(85,100)-(107,75),0
  463. 2320  LINE-(165,90),0
  464. 2325  LINE(107,75)-(115,140),0
  465. 2330  LINE(115,145)-(165,100),0
  466. 2335  LINE-(205,145),0
  467. 2340  LINE(165,100)-(230,145),0
  468. 2345  LINE-(170,95),0
  469. 2350  LINE(180,85)-(220,135),0
  470. 2355  LINE(85,101)-(110,98),0
  471. 2360  FOR K=1 TO 750:NEXT K
  472. 2365  GOSUB 30000   '*** <Textpad> ***
  473. 2370  PRINT FNCEN$("WATERFOWL",40)
  474. 2375  FOR K=1 TO 1500:NEXT K
  475. 2380  GOSUB 30000                '*** Textpad ***
  476. 2385  PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
  477. 2390  PRINT FNCEN$("     <2> - To repeat WATERFOWL.",40)
  478. 2395  PRINT FNCEN$("      <3> - To exit from program.",40)
  479. 2400  E$=INPUT$(1)
  480. 2405  IF E$<"1" OR E$>"3" GOTO 2400
  481. 2410  SEL=VAL(E$)
  482. 2415  COMMON SEL
  483. 2420  CLS
  484. 2425  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  485. 2426  LINE(70,75)-(250,125),3,B
  486. 2430  ON SEL GOTO 2435,2440,2445
  487. 2435  CHAIN"a:main"
  488. 2440  CHAIN"a:waterfow
  489. 2445  CHAIN"a:end"
  490. 8999  END
  491. 30000  LOCATE 1,1
  492. 30010  PRINT"                                                                                                                        "
  493. 30020  LOCATE 1,1:RETURN
  494.